Markdown buttons

library(DT)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(readr)
library(readxl)
payroll <- read_excel("C:\\R Projects\\thesis\\project questionnaire os.xlsx") %>% 
  select(gender, age, income, edu)

## New names:
## * primary_trips -> primary_trips...1
## * primary_trips -> primary_trips...13

datatable(payroll, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
  )
)